Top 10k strings from Pool (1983)(Abrasco).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
2 tn+tw);" v ";l$(x,
2 tn+th;"(Y/N)"
2 ratd)+rat*(ratd
2 rat*(ratd<.75
2 p(t,tw)<th+fo
2 p(t,th)=p(t,th)+j:
2 l(fo+fo,fo):
2 T=J+(T=J):
2 P(J+(T=J),TW)<B2)
2 P(J+(T=J),TW)<B1)
2 (P(T,J)=TW
1 ycr=ycr-(ycr>26
1 ycr=ycr+(ycr<62
1 y=y+(x=np):
1 y3)+y3/(x3+.001
1 xcr=xcr-(xcr>154
1 xcr=xcr+(xcr<214
1 x=(x=np)+(x+j)*(x<np):
1 tn+tw)''"PRESS ANY KEY TO CONTINUE":
1 tn+tw)''"DO YOU WISH TO SAVE THE TABLE?"
1 tn+th,z;"YOU MISSED"'"THE BALL"
1 tn+th,z;"YOU HIT THE"'"WRONG BALL"
1 tn+j,j;n$(t)''" TO PLAY"
1 th+fo;n$(tw);": ";p(tw,th)
1 th+fo;n$(j);": ";p(j,th);''
1 th+fo,z;" DO YOU WISH TO LOAD A TABLE?"''
1 th+fo,th+th;"
1 t=j+(t=j):
1 t$="STRIPED
1 t$="SPOTTED
1 st=br*(j+254
1 rat=x3/(y3+.001
1 rat=rat*(rat
1 p(tw,fo)<th)
1 p(t,tw)=th+fo
1 p(t,th)=tw
1 p(t,th)=th
1 p(t,th)=fo
1 p(t,fo)=p(t,fo)+j:
1 n;". ";l$(n,
1 n$(tw,fo*th):
1 n$(tw)=l$(x-(x>np)):
1 n$(j)=l$(y):
1 m$="SHAME!":
1 m$="PATHETIC!!":
1 m$="O.K.":
1 m$="NICE ONE!!":
1 m$="LUCKY!":
1 m$="GREAT SHOT!!":
1 m$="GOOD SHOT!!":
1 m$="FOOL!":
1 m$="FLUKE!!":
1 m$="BAD LUCK!":
1 l(y,tw)=l(y,tw)+j:
1 l(y,th)=l(y,th)+j:
1 l(y,j)=l(y,j)+j:
1 l(y,fo)=l(y,tw):
1 l(x,tw)=l(x,tw)+j:
1 l(x,th)=l(x,th)+j:
1 l(x,j)=l(x,j)+j:
1 l(x,fo)=l(x,tw):
1 l(n,j)=l(n,tw)+l(n,th):
1 l(n,fo)=l(n,tw):
1 l$(tn+tw,tn+fo)
1 l$(tn+tw)=
1 l$(tn+tw):
1 fr=fr-(fr>0
1 cb,xcr-th:
1 cb+j,ycr+th:
1 bw=((j+(t=j))=j)
1 b2*(p(j,j)>0
1 b1*(p(j,j)>0
1 b$(tw,th+fo):
1 YOU'VE ONLY"'"THE BLACK TO"'"POT NOW":
1 YOU POTTED YOUR"'"OPPONENTS'"'"BALL":
1 YOU POTTED THE"'"CUE-BALL":
1 USE THE CURSOR"'"KEYS TO MOVE"'"THE CROSS-WIRES"'"TO WHERE YOU"'"WOULD LIKE TO"'"PLACE THE CUE-"'"BALL"'''"
1 USE THE CURSOR"'"KEYS TO AIM"'
1 USE THE 5 & 8"'"KEYS TO SELECT"'"STRENGTH"''
1 TN,Z;"MIN";
1 TN,TN;"MAX";
1 THE TOTAL NUMBER OF FOUL SHOTS FOR EACH PLAYER WERE:-
1 TEST WRONG BALL OR MISS
1 SET UP SCREEN AFTER EACH HIT
1 PRESS ENTER"'"WHEN READY":
1 PRESS ENTER"'"WHEN READY"
1 PRESS ENTER"'"TO SHOOT"
1 PRESS ANY KEY"'" TO CONTINUE":
1 PRESS ANY KEY TO CONTINUE":
1 P(TW,TW)=B1*(P(TW,J)=J)+B2*(P(TW,J)=TW):
1 P(T,TH)>FV+J
1 P(T,TH)=FV+J
1 P(T,TH)=FV
1 P(J,TW)=B1*(P(J,J)=J)+B2*(P(J,J)=TW):
1 M$="WELL DONE!":
1 M$="EASY!":
1 LEAGUE TABLE"
1 J,J;N$(J);
1 INITIALIZE
1 GOOD SHOT"'n$(t)''"YOU ARE NOW"'"PLAYING WITH"'"THE ";t$(
1 FV,J;N$(TW);
1 FOUL SHOT!!"
1 ENTER PLAYERS' NAMES"'''
1 DO YOU WISH TO PLAY IN A LEAGUE?"''
1 DATA ROUND UP
1 ALL GAMES NOW COMPLETED"''"PRESS ANY KEY TO PLAY AGAIN":
1 ;l(n,tw);" ";l(n,th);" ";l(n,fo):
1 ;"(MAX. 12 CHARACTERS)"
1 ;" PL";" W";" L";" TOT"''
1 -n;"GAME OVER":
1 ,j+(j/ratd)/
1 ,Z;"| | | | | | | ":
1 *(y3=z))*(x3
1 *(x3=z))*(y3>x3):
1 );" ";l(n,j);
1 )'"BALLS (";t$(8
1 ) ROUND"''" THE EDGE OF THE TABLE USING"''" THE CURSOR KEYS. THE 0 KEY"''" ALLOWS RAPID MOVEMENT."''''" PLACE THE CIRCLE IN THE "''" DIRECTION FROM WHICH YOU WANT"''" TO HIT THE BALL"
1 (p(j,fo)<th
1 ''n$(t)'"NOW HAS A"'"FREE SHOT"
1 ''N$(T)'"NOW HAS A"'"FREE SHOT":
1 '''"GAME No ";gn;":-"''l$(y,
1 ''"GAME No ";GN;":-"''L$(Y,
1 ''" YOU PLAY A FOUL SHOT IF...."''''" 1. THE FIRST BALL YOU STRIKE"''"
1 ''" YOU CAN SAVE A LEAGUE ON TAPE"''" BEFORE ALL THE GAMES ARE"''" COMPLETED, AND THEN LOAD IT"''" BACK AT A LATER DATE."''''" FINALLY IF ALL THIS SEEMS A"''" LITTLE COMPLICATED, DON'T"''" WORRY THERE ARE PLENTY OF ON-"''" SCREEN INSTRUCTIONS!"
1 ''" WHEN YOU POT A BALL YOU"''" HAVE AN EXTRA TURN."''''" IF YOU PLAY A FOUL SHOT"''" YOU LOSE A TURN."
1 ''" WHEN THE FIRST BALL IS POTTED"''" THE PLAYER WHO POTTED IT THEN"''" HAS TO POT ALL THE OTHER"''" BALLS OF THE SAME TYPE,"''" FOLLOWED BY THE BLACK."''''" THE OPPONENT DOES LIKEWISE"''" WITH BALLS OF THE OPPOSITE"''" TYPE"
1 ''" WELCOME TO ABRASCO POOL!"''''" THIS IS A GAME FOR 2 TO 8"''" PLAYERS AND IS BASED FAIRLY"''" CLOSELY ON THE POPULAR GAME"''''" IF YOU HAVE NOT PLAYED POOL"''" THEN READ THE FOLLOWING RULES"''" CAREFULLY"
1 ''" UP TO 8 PLAYERS CAN TAKE PART"''" IN A LEAGUE."'''" EACH PLAYER PLAYS EVERY OTHER"''" PLAYER TWICE AND A TABLE IS"''" DISPLAYED AT THE END OF EACH"''" GAME SHOWING THE NUMBER OF"''" GAMES PLAYED, THE NUMBER OF"''" GAMES WON AND LOST, AND THE"''" NUMBER OF POINTS."
1 ''" TO AIM THE CUE-BALL YOU MOVE"''" A SMALL CIRCLE (
1 ''" THE TWO PLAYERS THEN TAKE"''" TURNS TO TRY TO ""POT"" ONE"''" OF THE STRIPES OR SPOTS INTO"''" A POCKET BY STRIKING IT WITH"''" THE CUE BALL"
1 ''" THE GAME IS PLAYED ON A TABLE"''" WHICH HAS SIX POCKETS"''''" THERE ARE FOUR TYPES OF BALL"''" WHICH ARE DEPICTED AS"''" FOLLOWS:-"
1 ''" IF YOU DO POT THE CUE-BALL"''" YOUR OPPONENT REPLACES IT"''" WITHIN A CERTAIN AREA"''" OF THE TABLE."''''" YOU LOSE THE GAME IF YOU POT"''" THE BLACK WITH A FOUL SHOT,"''" OR IF ANY OF YOUR BALLS ARE"''" LEFT ON THE TABLE. TAKE CARE!"
1 ''" AT THE BEGINNING OF THE GAME"''" THE SPOTS AND STRIPES"''" (7 OF EACH) AND THE BLACK"''" ARE SET UP IN A TRIANGLE AT"''" ONE END OF THE TABLE."''" THE CUE-BALL IS PLACED AT THE"''" OTHER END"
1 ''" (IF YOU'VE PLAYED BEFORE YOU"''" MAY FIND THE RULES"''" DIFFER SLIGHTLY FROM THOSE"''" THAT YOU ARE USED TO)"
1 '"O.K. PRESS ANY KEY TO CONTINUE":
1 '"(0 KEY FAST) "'
1 "YOUR ";P(T,TH)+J;"th!":
1 "YOU'RE NOT"'"TAKING THIS"'"SERIOUSLY!!":
1 "YOU POTTED YOUR"'"OPPONENTS BALL":
1 "WHY NOT GIVE"'"UP NOW!!":
1 "WHAT A PITY":
1 "WELL PLAYED!!*?":
1 "TRY HARDER":
1 "THIS MUST BE"'"A JOKE!!":
1 "REMOVE EARPHONE LEAD":
1 "POOR EFFORT!":
1 "PLAYER 2 ";n$(tw):
1 "PLAYER 1 ";N$(J):
1 "PLAYER ";(n);l$(n):
1 "PATHETIC!!":
1 "OH DEAR!":
1 "NUMBER ";p(t,th)+j:
1 "NOT GOOD"'"ENOUGH!":
1 "NOT AGAIN!?":
1 "NO COMMENT!!":
1 "NEVER MIND":
1 "MAKE IT THE"'"ONLY ONE!":
1 "HOW MANY PLAYERS? (MAX 8)";q$:
1 "HOPELESS!!":
1 "HAVE YOU TRIED"'"PLAYING GOLF??":
1 "HAVE YOU BEEN"'"DRINKING?!!":
1 "DON'T DO IT"'"AGAIN!":
1 "CONCEDE!!":
1 "BAD MISTAKE!":
1 ";n$(j+(t=j))'" IS THE WINNER":
1 ";''N$(T)'"NOW HAS A"'"FREE SHOT"
1 "8560"+fv*
1 "8550"+TH*
1 "8540"+tw*
1 "8530"+th*
1 "8520"+fo*
1 "2";"DO YOU REQUIRE INSTRUCTIONS?"''
1 "13";"(Y/N)"
1 " YOU POTTED"'" THE CUE-BALL":
1 " YOU POTTED"'" THE BLACK":
1 " YOU HIT YOUR"'" OPPONENTS BALL":
1 " PRESS ANY KEY TO CONTINUE"
1 PRESS ANY KEY TO PLAY AGAIN"
1 OPPONENTS BALLS"'''" 3. YOU DON'T HIT A BALL"'''" 4. YOU POT THE CUE-BALL"
1 IS YOUR OPPONENTS"'''" 2. YOU POT ONE OF YOUR "''"
1 ... THE CUE-BALL"
1 ... THE BLACK
1 ... STRIPES
1 ... SPOTS
1 ";n$(t)'" IS THE WINNER"
1 ";N$(T)'''"
1 WOULD YOU LIKE TO SEE THE"''" INSTRUCTIONS AGAIN?"